Tratamento dos dados

#WDIsearch("Foreign direct investment")
#WDIsearch("Doing Business")

pdi_pib <- WDI( indicator = "BX.KLT.DINV.WD.GD.ZS")

FDI <- WDI( indicator = c("IC.BUS.EASE.DFRN.XQ.DB1719","IC.BUS.EASE.DFRN.DB16","IC.BUS.EASE.DFRN.DB15", "IC.BUS.EASE.DFRN.DB1014", "BX.KLT.DINV.WD.GD.ZS", "BX.KLT.DINV.CD.WD" ),start=2010, end= 2019, extra = TRUE)

FDI <- FDI %>% 
  rename(DB17_19 = IC.BUS.EASE.DFRN.XQ.DB1719, DB16 = IC.BUS.EASE.DFRN.DB16, DB15 = IC.BUS.EASE.DFRN.DB15, B10_14 = IC.BUS.EASE.DFRN.DB1014, fdi = BX.KLT.DINV.CD.WD, fdi_pib = BX.KLT.DINV.WD.GD.ZS)

# junção das metodologias, pois estavam em bases diferentes
FDI$metodologia <- coalesce(FDI$DB17_19,FDI$DB16)
FDI$metodologia2 <- coalesce(FDI$metodologia,FDI$DB15) 
FDI$db <- coalesce(FDI$metodologia2,FDI$B10_14)

FDI <- FDI %>% 
  select(iso2c, country, year,fdi_pib, fdi, iso3c, region, longitude, latitude, income, lending, db)

FDI_0 <- FDI %>%
    mutate(log_fdi = log(fdi), db = round(db,2)) %>% 
    filter(year >= 2014) 
## Warning in log(fdi): NaNs produzidos
FDI <-  FDI %>%
  mutate(log_fdi = log(fdi), db = round(db,2)) %>% 
  filter(year >= 2014) %>% 
  na.omit()
## Warning in log(fdi): NaNs produzidos

Gráfico estático

FDI2018 <- FDI %>% 
  filter(year == 2018)

g001 <- FDI2018 %>% 
  ggplot(aes(x = db , y =log_fdi))+
  geom_smooth(method = "lm", se =  FALSE)+
  geom_text(aes(label=ifelse(country  %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),as.character(country),'')), color = "black", vjust = -1, hjust = 0)+
  geom_point(data=FDI2018[FDI2018$country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),], size = 3)+
  geom_point(aes(color = income))+
   labs(
    title = " Destaques Relação FDI e DB para o ano de 2018",
     x = 'Doing Business', 
     y = 'Foreign Direct Investment (FDI)'
     )
  
g001 
## Warning: Removed 1 rows containing non-finite values (stat_smooth).

g002 <- FDI2018 %>% 
  ggplot(aes(x = db , y =log_fdi, color = country))+
 
  # geom_text(aes(label=ifelse(country  %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),as.character(country),'')), color = "black", vjust = -1, hjust = 0)+
  # geom_point(data=FDI2018[FDI2018$country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),], size = 3)+
  geom_point()+
  gghighlight(country %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"))+

  labs(
    title = " Destaques Relação FDI e DB para o ano de 2018",
     x = 'Doing Business', 
     y = 'Foreign Direct Investment (FDI)'
     )
## label_key: country
g002

ggsave("g002.png")
## Saving 7 x 5 in image
g01 <- FDI %>% 
  filter(year == 2018) %>% 
  ggplot(aes(x = db , y =log_fdi, label = country ))+
  geom_smooth(method = "lm", se =  FALSE)+
  geom_text(aes(label=ifelse(country  %in% c("Brazil", "China", "India", "Russian Federation", "South Africa"),as.character(country),'')), color = "black")+
  geom_point(aes(color = region))+
   labs(
    title = " Destaques Relação FDI e DB por região para o ano de 2018",
     x = 'Doing Business', 
     y = 'Foreign Direct Investment (FDI)'
     )
  


g01 
## Warning: Removed 1 rows containing non-finite values (stat_smooth).

Animação desde com indicadores desde o ano de 2014

###
g3 <-  FDI_0 %>% 
  ggplot(aes(x = db , y =log_fdi, color = income))+
  geom_point()+
  transition_time(year) +
   geom_text(aes(label=ifelse(country  %in% c("Brazil", "China"),as.character(country),'')))+
   labs(title = 'Year: {frame_time}', x = 'Doing Business', y = 'Foreign Direct Investment (FDI)')+
  ease_aes('linear')

g3
## Warning: Removed 118 rows containing missing values (geom_point).
## Warning: Removed 118 rows containing missing values (geom_text).
## Warning: Removed 118 rows containing missing values (geom_point).
## Warning: Removed 118 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 129 rows containing missing values (geom_point).
## Warning: Removed 129 rows containing missing values (geom_text).
## Warning: Removed 121 rows containing missing values (geom_point).
## Warning: Removed 121 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 123 rows containing missing values (geom_point).
## Warning: Removed 123 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 133 rows containing missing values (geom_point).
## Warning: Removed 133 rows containing missing values (geom_text).
## Warning: Removed 124 rows containing missing values (geom_point).
## Warning: Removed 124 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 132 rows containing missing values (geom_point).
## Warning: Removed 132 rows containing missing values (geom_text).
## Warning: Removed 125 rows containing missing values (geom_point).
## Warning: Removed 125 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).
## Warning: Removed 290 rows containing missing values (geom_point).
## Warning: Removed 290 rows containing missing values (geom_text).